Application.ModelessCmd("zt")
Application.ExecuteCommand("Display Colors Setup")
DisplayColorsSetupDlg.ColorGrid.Cell("TOP", "#") = "0"
DisplayColorsSetupDlg.ColorGrid.ClearSelection
DisplayColorsSetupDlg.Ok.Click()